Var
  F : File;
  MIN, MAX : Word;

Begin
  Assign (F, ParamStr(1));
  Reset (F, 1);
  Seek (F, $A);
  BlockRead (F, MIN, 2);
  BlockRead (F, MAX, 2);
  If MIN=0 then MAX := 1
  Else MAX := MIN;
  Seek (F, $C);
  BlockWrite (F, MAX, 2);
  Close (F)
End.
